home *** CD-ROM | disk | FTP | other *** search
Text File | 1992-03-19 | 4.0 KB | 162 lines | [TEXT/ttxt] |
- * MCI Mail Script, for QuickMail™
- * Copyright © 1988-92 CE Software, Inc.
- *
- * Title: MCIMail.Script.v2.05
- * Version: 2.05
- * Modification Date: 92/03/18
- *
- * NOTE: The filename of this script does not accurately reflect the version
- * number of the script. It was not updated due to the complications it would cause
- * in the QuickMail v2.5.1 update process. This problem will be corrected in a future
- * version of QuickMail.
- *
- * Modification History:
- * • 2.05 92/03/18 Some TYPE commands did not have ^X following them to
- * purge MCI's input buffer of potential line noise before
- * sending a command. Added ^X's all over the place.
- *
- * Removed comment that this script logged in via Tymnet.
- * It does not -- it is designed for use with MCI's
- * direct-dial numbers.
- *
- * • 2.04 - 2/24/92:Changed IN routine to pause longer due to MNP handshakes.
- * make sure to set you Data Bits to 8, Stop Bits at 1, and parity to None in the
- * Connection dialog.
- *
- * • 2.03 - 6/12/91: Added EMS messaging capabilities. This allows users to SEND to
- * FAX machines, or TELEX. Does not support replying to RECEIVED of EMS messages
- *
- * NOTE: This script can also RECEIVE messages that originated on services
- * other than MCI Mail, but since their return-addresses take up more than one
- * line, we cannot properly extract the return address. You will need to MANUALLY
- * re-address messages like this when you reply, otherwise your reply will be
- * rejected by MCI Mail.
- *
- * • 2.02 - 4/11/89: Formating and Name Changes. Tested OK.
- *
- * • 1.07 - 3/1/89: Revised to reflect recent changes to MCI Mail.
- * All users now call 1-800-456-6245 to access MCI Mail
- *
- * • 1.05 - 12/8/88: by Bill Davis and Dave Loverink of CE Software to
- * account for bad or missing addresses and drafts. Changed each TYPE command
- * to start with a ^X, which erases everything typed on the line to that
- * point; this may help reduce line noise problems. MCI Mail responds by typing
- * “XXX” and either waiting for you to re-enter the line or by redisplaying the
- * prompt.
- *
- *
- * NOTES:
- *
- * This is a simple script to log onto MCI Mail.
- *
- * Since MCI Mail does not support XMODEM binary file transfer, this script
- * doesn't either. therefore if you send a message with an enclosure
- * to MCI Mail, the enclosure will NOT be sent. The message the enclosure was
- * attached to WILL be sent.
- *
- *
- * This is called to log us into MCI Mail
- *
- :IN
- OOPS 30,FAILURE
- PAUSE 8
- TYPE ^M
- WAIT user name:
- TYPE ^X«LOGID»^M
- WAIT Password:
- TYPE ^X«PASSWORD»^M
- NOTMAIL no messages waiting
- WAIT Command:
- TYPE ^Xaccount^M
- WAIT Yes or No:
- TYPE ^Xno^M
- WAIT change:
- TYPE ^Xpage^M
- WAIT depth:
- TYPE ^X100^M
- WAIT change:
- TYPE ^Xterm^M
- TYPE ^XPAPER^M
- WAIT change
- TYPE ^X^M
- WAIT or TEMPorary:
- TYPE ^XPERM^M
- WAIT Command:
- SUCCESS
- *
- * This is called to send one piece of mail
- *
- :SEND
- OOPS 60,FAILURE
- TYPE ^XCreate^M
- WAIT TO:
- TYPE ^X/UPLOAD ON^M
- PAUSE 1
- TYPE ^X«ADDRESS»^M
- TYPE ^X/UPLOAD OFF^M
- * 5 Alerts added 10/23/90 to account for bad, blank or missing addresses
- ALERT 11,S1,There must be
- ALERT 12,S1,in the TO field
- ALERT 13,S2,not found in
- ALERT 14,S2,EMS Delivery
- ALERT 15,S2,during this session.
- * end of 12/8/88 changes
- WAIT TO:
- TYPE ^X^M
- WAIT CC:
- TYPE ^X^M
- WAIT Subject:
- TYPE ^X^M
- WAIT to end.)
- TYPE ^XAttn: «NAME»^M
- DUMP ^J
- TYPE ^X/^M
- WAIT Handling:
- TYPE ^X^M
- WAIT Send?
- TYPE ^XY^M
- WAIT Command:
- SUCCESS
- *
- :S1
- ERRORINADDRESS
- WAIT TO:
- TYPE ^X/^M
- WAIT Command:
- SUCCESS
- *
- :S2
- ERRORINADDRESS
- *This will allow a bad address to be kicked out to the mailcenter custodian
- TYPE ^X/^M
- WAIT Command:
- SUCCESS
- *
- * This is called to receive mail. It is called continually with increasing
- * values in «COUNT», until FAILURE occurs. You can put all reads into one
- * listing, if you wish
- *
- :RECEIVE
- OOPS 60,FAILURE
- TYPE ^XRead Inbox^M
- ALERT 2,R10,Your INBOX is empty.
- :R1
- ALERT 1,R10,Your READ request is now complete.
- WAIT ^M
- BUFFER Command:
- ALERT 2,,
- RECEIVE Subject:,Attn:,From:,/ MCI ID: ,
- TYPE ^XNext^M
- GOTO R1
- :R10
- WAIT Command:
- FAILURE
- *
- * This logs us off MCI Mail
- *
- :BYE
- TYPE ^XEXIT^M
- ALERT 1,SUCCESS,log in:
- PAUSE 10
- SUCCESS
- *